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Sorry, I Lied! 

Hello there! Hope you're en- 
joying your summer. First off, 
you might notice that there's no 
color picture or 1770 FDC fact 
sheet that I promised in the last 
issue. Well, that's because I am 
running a little behind production 
and figured that the time involved 
to do such a task would involve 
more time than I have now and set 
me back in production even fur- 


ther. In addition, the cost of 
that mailing will be a budget 
breaker for me. I have 100 ad- 


dresses that I mail to. Multiply 
100 addresses by at least 75 cents 
and I think you get the picture. 
Both the color picture & the 1770 
FDC fact sheet will be in the Sep- 
tember 1991 issue. This issue 
contains a Timex BASIC program 
written by George Gilder that ori- 
ginally appeared in a L.I.S.T. 
newsletter. I had asked for and 
received permission to re-print 
the article from Mr. Gilder. I 
realize that not all of you have 
the CP/M mode and some of you who 


do have CP/M never or hardly ever 
use it. I have not keyed this 
program in nor have I tested it. 


If anyone wants to key this pro- 
gram in and needs some assistance 
to tailor the hard-coding of cer- 
tain variables to their needs, you 
may either write me or telephone 
me for free help. 


Mucho Gracias & an Appeal 
I want to thank all of you 


who have sent me donations. Un- 
fortunately, it's all been spent. 
I had such a pitifully low 
response that I feel that I need 
to make another appeal. Please, 
if you can't afford the $10  sug- 
gested annual donation, send me an 
interesting article that I can use 
in this newsletter. It involves a 
lot of time to prepare this news- 
letter and that's worth money, 
too. For all T/S 2068 vendors out 
there, I want you to keep our disk 
system in mind when developing 
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your product. This means that it 
should be compatible with our sys- 
tems's SAVE & LOAD to disk and not 
conflict with any disk system port 


addresses. For the other clubs 
and newsletters out there, I ex- 
pect a newsletter in return. If 
none is forthcoming after 6 
months, you will be dropped from 
my mailing list. Also, it is your 
responsibility to see to it that 


if there are any FDD users in your 
club that are not receiving this 
newsletter, please notify me. I 
will put them on my list. 


Addendum & Errata 
In last month’s newsletter, I 

want to clarify a few statements. 
In the schematic, pin #8 in J8B is 
shown with AC. This is what Nazir 
meant by being non-standard. I 
have spoken to Nazir recently & he 
said that there are errors in this 
schematic concerning the RAM (U19 
- U26) and with the wire colors. 
I’m waiting for mail from him de- 
scribing his nits that he has with 
the schematic and will pass them 
on to you. Nazir has mentioned 
that he feels that he has the con- 
troller PAL decoded. For the be- 
nefit of those who don't have a 
clue as to what I’m talking about, 
let me give you a brief explana- 
tion. A PAL is a "Programmable 
Array Logic" manufactured by a 
company called Monolithic Memo- 
ries. It is a very fast solid 
state logic device and can be 
rendered "usable, but  uncopyable" 
when the PAL's "Copy" fuse is 
blown intentionally during its 
programming. This PAL is identi- 
fied as U2 in the schematic. I£ 
vou need one let me or Nazir know. 
He may be reached at: 

Nazir A. Pashtoon 

940 Beau Drive, #204 

Des Plaines, Illinois 
60016-5876 
(708)439-1679 


The telephone number is his nome 
number. Please don't call too 
late in the evenings & don't  for- 
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get that he’s in the Central Time 
zone. There are 2 other PALs, and 


they are located in the silver in- 
terface that sits atop the T-dock 
connector that most of us have. I 
have been able to obtain these 
PALs without their fuses blown and 
have given these to Nazir. If you 
need these PALS, you may write to 
Nazir or me. Nazir would be a 
better source because he has a 
friend that can burn these  PALs 
in. In a future edition of this 
newsletter, I will print the PAL 
program from the 2 PALS in the 
interface box. It is originally 
from Bob Orrfelt & corrections by 
Nazir (who else?). Part of it is 


also done automatically by the 
program that burns in the PAL 
chips. 

John McMichael wrote to me 


correcting me with the following 
information: Ed Grey has the ex- 
clusive rights to sell only one 
program that John wrote, which is 
calied  "COLOR2GREY". All other 
titles are available directly from 


John. Sorry about the mix-up. 
More Letters Dept. 

I received a letter from Al 
Green, in Tampa, Florida. Appar- 
ently, I had neglected to name my- 
self in the previous newsletter, 
because he addresses it to "Dear 
Me, I". He states that I used "I" 
& "ne" in the newsletter, but 
didn’t use my name. well, I1'11 
leave mv name at the end of each 
newsletter with mv mailing  ad- 
dress. Al, I obtained your name & 
address from John McMichael. T 


always ask anybody associated in 
the Timex community to get me in 
touch with other FDD users. I re- 
cently obtained the Radio Shack 
CGP-115 printer/plotter. It’s a 
cute little thing! Al also sent 
me a sample of the demonstration 
Software for the Commodore 1520 
originally written by John 
McMichael adapted to run on the 
CGP- 115. Al, send me a tape or 
disk with the program and I'd be 
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glad to return it after 
I bought this program 
already. 
1520 yet, 


copying. 
from John 

I don’t have a working 
but the CGP-115 is work- 
ing! Loved those samples! If you 
can’t send magnetic medium with 
the modifications, then maybe you 
can write to me the changes & I 
could describe them in a future 
newsletter. OK? Al writes  fur- 
ther: I am looking for an  OS64 
cartridge with docs. Anybody out 


there willing to sell one to Al? 
Al, you also want a 1200 baud 
modem program that will support 


the RS232C port on the controller. 
Well, look no further! Are you 
aware that we have one of the best 
public domain communications  pro- 
gram available to all FDD users 
that can operate in the CP/M mode? 
It's called IMP. IMP operates at 


300, 1200, 2400, 9600, or 19,200 
baud, depending on your modem 
speed. How's that! We also have 
MODEM" & MODEM programs that cur- 
rently operate at whatever you 
CONFIGURe your settings at. As 
mentioned before, running IMP at 
3OO bps causes a lossof ! - 2 


characters at the beginning of the 
line and 10 - 12 characters at 
1200 bps. This is due to the fact 
that our terminal emulation 
program has a slow carriage 
return. This can be accomodated 
for on some BBSes by going into 
the "Utility" or "User Settings" 
area and requesting "Nulls On" or 
choosing the necessary amount of 
Nulls - about 5 @ 300 & 15 @ 1200. 
What this does is that it sends 
null characters (hex OO) after a 
carriage return to allow our 
system to get back to column 1, 
which we do slower than most other 


systems. While we're returning to 
column 1 slowly, the BBS sends the 
nulls, which has the effect of 


waiting for us to get back toO 
column 1 without loosing any char- 
acters. The BBS will then send 
the text after these nulls are 
sent. The nulls are sent  immedi- 
ately after the BBS sends a (CR). 
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(is that clear? I find that the 


BBS software most 
the nulls option is TBBS. TBBS 
bulletin boards allow you to 
choose amount of nulls that you 
want. Remember, not every BBS has 
this option and some that do have 
it as a toggle feature only; that 
is to say, NULLS ON or NULLS OFF. 
Obviously, we would want NULLS ON 
in this case. Al asks why don’t 
the Amdek 3" drives work with the 
Timex controller. Al, which model 
Amdek is it? Is it the Amdisk III 
or the Amdisk III(B). If it's the 
Amdisk III, I've got an article 
for you that Ron Havilen, the 
person that published FDD Express, 
a prior FDD newsletter, published. 
It describes in detail what  modi- 
fications you need to do. Al was 
experimenting with the additional 
"d" in the FORMAT command to get 
620k formatted. Yes, you do need 
a DSDD at the very least. He also 
states that Sears is asking US$24 
" for one CF2 disk! I can't believe 


friendly with 


that one myself! Wow! I always 
bought my CF2s from Green Tree 
Computer Supplies. Their address 


is: P.O. Box 865 


5 N. Sussex Street 
Dover, New Jersey 
07801 


1(800)0367-2897 (outside M.J.) 
1(201)361-2030 (inside N.J.) 
1(201)361-4011 (FAX) 
They are extremely reasonably 
priced. I haven't bought any CF2s 
recently, though; it's been about 
a year. They sell the CF2 in 


boxes of 10. You cannot buy less 
than that. However, when I 
purchased 20 about a year ago, 
they were asking for $356.40 plus 


S&H, which averaged out to $4 & a 


few pennies per diskette. They 
are prompt, too! Al, sounds like 
you got a bargain on those disk 
drives that you bought. Thanks 
for Delmer's name & address; TAEL 
| add it to my list. Wowsers! Over 


100 on the list & counting! 
Joan Kealy of Bracketville, 
Texas is looking to buy a back-up 
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controller. Can anyone help her 
with that request? She also has a 
LarKen disk system for ber 2068, 
but says she likes the Portuguese 
system better! Way to go, Joan! 
She is curious about color print- 
ing. I use an OkiMate 20 printer 
with software written by John 
McMichael. I don't know where you 
can buy an Oki 20 nowadays. I've 
seen them offered for sale at ham 
& computer flea markets. I paid 
$79 for mine, which was a display 
model, at a Toys R Us store 
recently. Trying to find the 
interfaces is another herculean 
task. Some Toys R Us are selling 
the Commodore version. I've 
purchased this one. I also bought 
the IBM parallel & serial  inter- 
faces, as well. In fact, those of 
you who had received the first 
newsletter saw a dramatic improve- 
ment in print quality appear in 
the second newsletter due to the 
fact that the first issue was 
printed on my Okidata 83A and the 


second issue was printed on the 
OkiMate 20. As some of you could 
tell, my Okidata 83A needs a new 
print head. I still will have to 
print off the labels on the 83A 
since 1-up won't work on the 
OkiMate 20. 3-up should work on 
the OkiMate 20, I think. I had 


problems  interfacing the  OkiMate 
20 with the IBM serial interface, 
originally. I used the same cable 
that I used to the Okidata 83A. 
The problem with the OkiMate 20 
was that when the printer buffer 
would fill up, the FDD continued 
to send data. This is a data 
processing no-no. The net effect 
of this mess is a printed mess. 
The diagnosis was that I was not 
connected to the correct line that 
told me when the buffer was full. 
This was resolved by my purchase 
of a Radio Shack RS2322C shielded 
jumper box (part 3 276-1403). I 
placed this between my cable and 
the plug & print interface. It 
looks like a null modem going into 
my printer. Use those little 
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black-wire jumpers to go straight 
across on lines 2, 3, & 7. You 
must jumper line 20 (on the 
opposite side) to line 11. You 
can place all 4 jumpers on the 
same side. What this does is use 
the SSD signal on the Okimate 20 
instead of the DTR, as I had with 
the Okidata 83A. Got it? Sorrv 
to go off on a tangent, Joan, now 
back to the subJect. As soon as 
you can obtain an OkiMate 10 or 20 
and either a Commodore or IBM 
parallel (for the 2O only), write 
to John McMichael for details. 
BTW, the IBM parallel I/F requires 
an AERCo CPI-68 I/F, as well, as 
most of us have. Otherwise, you 
must purchase a Commodore serial 
interface from John. This sits on 
the edge-connector interface. Its 
ICs are socketed, a fact I con- 
sider important, though totally 
neglected to be mentioned by John. 
My only gripe with the Commodore 
I/F is that its circuit board is 


horizontal and has no feed- 
through. If the circuit board was 
vertical and there was a  feed- 
through, I'd give it a "110%" 
rating. 10 extra points for  soc- 
keting all ICs. This can be  pur- 
chased as a kit or can be bought 


ready to be plugged on & used. Lt 
comes with a software driver that 
is free. This interface can pe 
used with the VIC-1520 
printer/plotter, as well. I would 
like to see if John could modify 
his 1520 software to run on the 
Radio Shack CGP-115 in both paral- 


lel and serial modes. What about 
it, John? Joan wants to know 
about the newer color monitors 


with EZ(1) I/F to the T/S2068. I 
don’t understand this request. 
Could you elaborate on this? I 
see that you already have a color 
composite monitor. 

C. Vernon Tidwell of 
Summerland Key, Florida has the 
newer FDD 3000 system, although he 


said he's sold one drive. He is 
interested in getting both the 
CP/M & Spectrum disk operating 
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that 
newer 


systems. Vernon, i thought 
CP/M came standard with the 
FDD 3000 systems. Didn't you get 
a CP/M system disk? If not, send 
me a blank diskette & I will make 
one for you. It will work on your 
system as soon as you use it. I 
would advise you to buy another 
disk drive or 2 or even 3 more 
once you operate under CP/M. Once 
you've got CP/M, you'll begin to 
understand what I mean! You will 
need a Spectrum Emulator in either 
cartridge format or in EPROM & for 
Nazir or someone else to add a 
toggle switch to the silver inter- 
face box that sits atop the T-dock 
connector that plugs into the rear 
of the 2068. Oops, I forgot to 
mention that it appears that Al 
Green has the "Super Twister"  in- 
stead of the cheaper  T-dock I/F 
that we have. 


-..And in Conclusion... 

Nazir told me that you should 
check out the September 1991 issue 
of Radio-Electronics magazine. 
Specifically, he said you should 
look in the "tear & fo!d-out" sec- 
tion. There, you will find great 
prices for disk drives. 

My name & address is: 

Jay S. Siegel 

1274 49 Street, #821 

Brooklyn, New York 

11219-3011 


My telephone number is: 
10718)853-1759 evenings. 
(no Fri. night - Sat. night calls) 


Doesn't look like I’ll be 
able to make the Dayton, Ohio 
ComputerFest on August 24 & 25 @ 
the Hara Arena. 

Until next issue, keep on 
Timexin’! 


73 de KA2CSH . . . |. — 

P.S. This newsletter was produced 
on a T/S 2068 under CP/M 2.2 using 
WordStar CP/M Edition, Release 4.0 
& spell-checked & grammar-checked. 


The Potugese Disk System 


Y333F334333333333334%33%%%3 
RANDOM ACCESS AND 4 
SEBUENTIAL DATA FILE: 
FOR THE PORTUGESE y 
DISK SYSTEM * 


: = 
# ©1985 GEORGE GILDER i 
YiiÓÓ:iiiiisikkiiisiiirini 


LEN NN 


The faltowing program is a data 
base program I have developed 
fof use in my design business. 
Although Specifically designed 
for my personai use I believe 
there are several features that 
would be of interest to you. 


First of all, the progra 
140K of memory.,.the available 
memory cf a Single forma 
disk. With another disk ive 
that could be doubled. 


Most pecple I have spoken to 
are not famitiar with the data 


"features of our System. That is, 


the ability of the system ta 
read Or write to the data on the 
disk. We do not have to be hamp- 
ered by the limitations of the 
64K resident in our computers. 


Unlike cur basic Programs where 
we use DATA iines or AS strings, 
the Data Prosram activly uses 
(and accesses} the disk. 


NOTE THE DISK ACTION UHILE 
RUNNING THE PROGRAM! 


Let us first revieu some very 
basic rules to help you under- 
Stand this program and make it 
easier to adapt a data file to 
your own needs, 


The TOS reads and writes 
through channels. There are i6 
Channels to choose From and one 
Should be chosen that is not 
being used. 


CHHNH SPEED NOTES 
1-4 Fast Separ. buffers. 
5-16 Slow Share buffers 


Before a using a channel it 
Should be iisted to know which 
one is! are open, Let us Choose 
Channel n. iLISTsSn) shows the 
Status of a seiected channel or 
for atl channeis (LISTaHG!). 


To create the data tist, first 
DIM the Pathname as in iine 360. 


380 DIM #TOYLIST.DAT Ñ 
In order to read or write to the 
Channel, it musti be opened. 


40 OPEN #2H; TOYLIST.DAT; r; L 


H= 2 
r saccets made 


THE 4 ACCESS MODES ARE: 
Input (read only) 

Output twrite only) 
Random (read or write) 
Append iwrite & add to an 
existing file: 


ReH=channel na.z 
L=iz3=rec. length 


DVOH 


LIST. 


p.11 


Line S88 prints (writes to) 
Channel #2 


598 PRINT +2;k$-P$;AT n 


K$-P$ if 188 characters long & 
if detailed in tines 5280-570 
i £tfing choices: 
afte€d with a 
CzCrarts, f= 
allows me to 
list by cata- 
many addresses 
Rvenue (Toy 
ng T at the 


A word about t 


Each string i t 
í 


access my mai 
gory. Because 
were at 288 Fi 
Building), by en ri 
address prompt, this address was 
automaticaly entered (line 550). 
Similarly Att: Hr. President is 
used by entering P at the Prompt 
if the name was unknown. 

The phone number is again an 
example of entering compressed, 
Coded strings. Bu using an in- 
itial prefix, I save hundreds 

Of bytes, The cade is Simple. N 
NYC=1212, L=LI=1516, etc. That’ 
8 Saving! 

The option "AT n" is used 
marker to identify the str 
sections, 


T3 es r 
et 0) 7) I o Mn m 


fI oan 


s 


as a 
ing 


Everu time you sre finished with 
ANY fi le, in ANY liOde..saesrs a 
THE FILE MUST BE CLOSED! 

(Line 580} 


R uord about the menu- 

NO. 1 reads a complete data 
String and through Lines 980-995 
Organizes the data in correct 
order for printing labels. 

No. 3 reads a directory of ca. 
names preceded by their pointer 
numbers, 

NO.2 alious iisting by code, 
Prompts make seiection easy, 
No.4 closes the channel & Should 
be used if the program breaks 
With an error, 

No.7 nicely eddits the data with 
verg Friendly prompts. 

No. & is a search, but vefty 

Stow img fault, not the Disk's) 


The Subroutine starting at Line 
aga, reads the small MC routine 
at lirie 8. The number or files 
Used are compiled automatically 
as af€ the files remaining, 
Although not used in this appli- 
Cation, accessing the data by 
Pointer number rapidly accesses 


the correct string 


s are brief and 
this short, are 
t. There is hou- 
ormation for you 


or your oun needs 


ri 
in any arti 
Sketchy, a 
ever encug 
to adapt thi 


If there are any questons 
regarding this or more direct 
applications, you can write me 
(SHE ptease!:George Gilder 

Apt D-51,67-38 103th Street, 
Forest Hills,NY 11375 


»REM FLASH CLS G THEN LN <> 
REM Iso Oa s SS che i 


FOR THE PORTUGESE 
DISK SYSTEM E 

* 

REM # ©1935 GEORGE GILDER + 
REM ss$ss4kPEffifififikiiii 


18 LET isi: LET nz1 

15 GO TO 3812 

20 LET trapzunHL "23729" 
25 POKE trap VAL "255" 
30 DIM z'"TOYLIST.DRT" 
35 POKE tfrap,.-u 


48 OPEN 84H; TOYLIST. DAT";r; kz 
k+VAL ENS 

58 RETUR 

68 GO yan oe h $k 

95 RETUR 

99 REM a iaseerd R rry ss 
199 REM s read a record E 


101 REM szssz3234423Z4322222222£ 
105 GO SUB k+K: GO SUB uxh 
110 FOR i=j TO n-j: POKE 23692, 


115 PRINT ttv 
SESS" OR n«J THE 


N GO TO VAL "152° 
125 INPUT zt;s55;RT 
139 LET ae co SUB. U-K +k 
135 NEXT 2 
raid a SVAL "125": GO SUB we 


208 REM iau hr REC E CL ie 
201 REM x SELECT DATA 

2082 REH EEP gii ig fad papt 
2805 CLS : PRINT e THORS ONE O 
R HORE CATEGORIES P, INK h'v 

210 PRINT ''THB h; "C CRAFTS"’’ 
TAB h;"T TOYS"’ ‘TAB Bah GAMES 
"* 'THB h;"D DOLLS"’’TAB h;“H H 
RIS d. h;"H ALL CATEGO 


BT ts 

220 LET ¿=CODE t$: IF dd THE 
N LET t$zCHR$ (L-VAL "32" 

eS GO SUB wth: GO SUB koks PRU 
530 LET aa=1: IF t$z"C" THEN LE 
T s$="CRAFTS" : : 

sec IF t$z"D" THEN LET s$="DOLL 

IF t$="Aa" THEN LET s$£z"RLL 

CATEGORIES" 
„233 IF t$="T" THEN LET s$=" TOYS 
234 IF t$z"G" THEN LET 5$="GAME 
2 

CH IF t($="H" THEN LET s$="HOUS 
238 EFT s IF tg="H" THEN LET 

4 PRINT tv; "Category “; 
S$’v$: FOR i=o TO nz 

teal 9g-URHL "260": INPUT #%h; 
g 

242 pe | as THEN GO SUB u-k 

E g 
245 IF t$="A" THEN GO SUB w-kzk 


GO TO 
2608 NEXT i: LET azhskzk: GO SUB 
waVAL "3° : 
@ STOP 
299 REM lad rtt a Egi 
3008 REM s LIST DATA 


301 REH Priiricad ridi icis rus 
3es re PD. K+K: GO SUB. ush . 


328 PRINT EMT INK 2; m INK 5;Y$ 
(VAL "21" TO VAL "s" : 


LIST 


ES IF i»zn-j THEN GO TO URL "3 


335 NEXT I 
nen LET a=URL "345": GO SUB URL 
as "xu 


34S LET s=s+k+k: LET d=d+kK+Kk 
350 GO TO 312 

399 REH 2 IUE a sos 
4008 REM s Close file 

401 REH PRRIPIRPISGRRRIRRPRRRgRGÉ 
410 CLS : CLOSE Uus2: PRINT "Fil 
e Closed": PRUSE ker: GO TS w 
499 REM zzs4334334344242432221343z:2:Z14 
508 REM x write a record * 
501 REM 2443242342443 22Z224222222241 
5805 REM INPUT "record number "; 


510 GO SUB k+k 
S15 IF noVAL 1827295 OR n«J THE 


S520 CLS : DIM k$(1): gi n$(k+k 


): DIM ms(m): DIM AS(k+k): DIM b 
r. DIM Z$(URL "7"): DIM P$( 


522 INPUT "Code: “jks: IF k$="QƏ 


525 INPUT “Pres. Name : ns 
527 IF n$(j)z"à'" THEN co’ TO 612 
530 IF n$= "57x THEN LET n$s"n 
tt: President" 
540 INPUT "Co, Name : ";m$ 
545 INPUT “Address : “jag 
550 IF a$tjrz"T" AND a$(H TO )= 
x$ THEN LET a$z"200 Fifth Rvenu 
e": LET b$zs'"Neu YOFR,N.Y, " E1 
z£&z"10010": GO TO URL "5708" 
551 IF a$í(j) "B" AND a$(H TO )= 
x$ THEN LET a$="1107 Broadway": 
OLET bS="New York,N. Y. ": LET z$ 
="18818": GO TO VAL "570" 
“sss INPUT oor up rete '; bs 
565 INPUT "Zip: ; Z$ 
570 INPUT "Phone :';p$ 
S80 LET aa=@: LET y$= oa 
o art iei G0 SUB u-k 
PRINT aus adengamnteiWibaace 
ESAT n 
95 LET n=n+1 
599 GO TO VAL "S520" 
6008 STOP 
700 CLS : LET veh: PRINT TAB k; 
“EDIT DATA" es 
705 GO SUB k+k 
710 CLS : PRINT, “Data Number To 
Edit? ";: INPUT Ja BINE f 
714 r. £894; 
715 IF f=@ THEN 60. TÜ URL "4909" 
716 PRINT ' INK VAL "6'";uys5 
717 DIM Es*$(7,19): LET es*$(1)="CO 
de": LET esi2iz"Pres. Name": LET 
e$(3)z"Co, Name": LET e$(4) ="Add 
ress": LET e$io)z"City,State": L 
ET e$io) "Zip": LET €§(7) =" Phone 


espi PRINT “"1 ";e5í(1),"5 “jes 
aoe PRINT “2 ";€$(2),"6 "jei 
Soe PRINT "B ”;€%$—(3),”7 ";es$t( 
„723 PRINT "4 ";e$(4),"8 Abort 
724 PRINT INK h;81;"Press Data 


Number to Correct” 
725 LET Ab yes. IF q$="" THE 


i. 


730 


CLS DIM *£$(1): DIM ns$ik 
): DIM mg$im: DIM AS IK+K) PIRE 
PE ` DIM z$(URL "7"): DIM P$: 
¿ -J 
Up 734 I =ë THEN PRINT ''TRB k; 
INK hj "NOG CHANGE’: PAUSE ksk: GO 
TO VAL "4àgà" 
735 PRINT AT VAL Ege, Jam; INK 
2;" Enter Correct Data": INPUT il 
$: PAUSE KH 
ayau AT aie Biv .d-d; INK 
inte GING "; $(9); PRESS RNY 
EY": PAUSE KaK I r 
740 LET zz=UBL "775": IF q=1 TH 
EN LET y$=w$+y$ih TO ): GO TO zz 
742 IF q=h THEN LET n$=w$: LET 


IN 


mmm. 


B9$=g$(j)+n$+9$(k+K+h TO ): GO TO 


TET elas TO X THEM LET m$=uws 
: gu$=g$( TO K+k+jj) m$495 (URL 
"54" TO ): GO TO zz T 

746 IF q=4 THEN LET as$-u$: LET 
very st TO 53} 4a$ty S$ (VAL "74" TO 


: GO TO zz 
748 IF q=5 THEN LET bi-u$: LET 


rege ity TO VAL "73'")4b$49$ (URL "3 
4" 1: GO TO zz 

750° IF q=6 THEN LET z$zu$: LET 
yS=yus( TO UE "OS")4z$49$ (KEK 4 
TO 3: GO TO 

752 IF q=7 THEN LET PS=ws: LET 
yS=y S$ ( Td EIER. GO TO zz 

775 PRINT u$'L y$;" Character 
s on INPUT EP THIS CORRECT” 
i 

780 IF @$="N" OR q$="n" THEN GO 
TO URL "720" 

785 PRINT ##Hi YS; AT f 

790 GO TO VAL "710" 

gga GO SUB kk: GO IE wh 

805 CLS : PRINT AT k, “Enter H 
ame of Company": INPUT as 
apne IF q*$="@" THEN GO 16 URL "4 
81@ FOR isi TO n-1 

815 INPUT #8h;y $; AT i 

aga IF gy$iuUHL "22" TO VAL "el'4 
LEN q4$)zq$ THEN GO TO 850 

825 NEXT i 

ead GO TO VAL "40G0": 

ase LET aazi: GO SUB 928 


860 PRINT #e°°: PRINT INK h; RT 
k,r;"Press any Key to Cont," FA 


USE ð: GO TO VAL "305" 

ago PRINT 8v;i: IF ash abe hh! 
="Att’ THEN GO TO VAL " 

ag5 LET ysth TI Sp uc Mr “$y 
$ih TO 1 

9108 PRINT +; 95th TO ksk4Jj1: 
REM Name 


os 
= 


915 PRINT fe; 9S (kek +h TO VAL 
e" REM Co Name 


2"): 


a20 PRINT Bv; y$ (UAL "54" TO VAL 

"73"): REM Address 

a25 PRINT &8v;uS(iURL "74" TO VAL 

93”): REM City State 

932 PRINT #¥; y$ (VAL "94" TO kxk 
): REM ZiP 

a35 PRINT Bxvj; YBSCREK4UAL "1" Tü 
): REM Phone 

937 IF aa THEN RETURN 

240 PRINT AT VAL "21",r;"IS LIS 
TING CORRECT?” 

8941 LET a$- INKEYS: IF a$z"" THE 
N GO TO URL "asíi" 

o45 IF CODE qs*$=13 OR qs5z" Y" ÜR 

g="y" THEN RETURN 

asa GO TO a 

995 RETURN ; 
182a CLS : PRINT AT H.r;: FOR F= 
1 TO 3: PRINT INK H; U$: NEXT F: 
PRINT AT H+J,k h; PAPER 2; INK Q 


;"CLIENT LIST DATA MENU" 


LIST 


wm 12 


jeas LET 


F=K-H: PRINT ‘‘TAB F; "1 
READ _ 


DATAY TAB F;"2 SELECT DA 

8 LIST DATA” 

CLOSE FILE 
Nr 


NAME SEARCH 
"Bl" ,J-J; PAPE 
PRINTER 


“260"-(N-d)} 
Fites";n—-d; THE 


sTop"* TRE F; INK 
EDIT CATA’ TAB F;,"8 


1@2a PRINT AT ie 

E 2; INK VAL "GG" 

ie22'! LET t=W+UAL 
1025 PRINT 8i; "NC. 
16;"Fiie Gpen=";t 
1230 LET HS=INKEYS 
1035 GO SUB VAL "8" +U: IF H$z'" 

THEN GG TO W+VAL " 

ie4a8 IF CODE H$:49 OR CODE H$>565 
THEN GO TO U«UHL "SQ" 

iese GO TO VAL h£zkzk 


2eae@ CLS : PRINT FLASH Jj; INK h; 

AT k,k-h;" Hard COPY? Se Alcan 

2810 LET Q$=INKEY$: IF q$z"" THE 

N GO TO haw 

Sese IF aya uq OR qg="y" THEN LE 
Vso: 

2838 CLS : LET vzh: RETURN 

28040 GO TO-Suzhsk- - - 

4308008 PRINT AT VAL "21",r; PAPER 

h; INK URL "&";"(Z)COPY t) UIT 
iC) ONT iMi ENU " 

3@18 LET h $= bod IF h$z"" THE 

N GO TO usURHL "3"4 

38185 IF h$= "H'" OR s=" m" THEN GO 
TO VAL "4828" 

3828 IF h$z"Gà" OR h$="q" THEN GO 
TO VAL "482" 

3a25 IF CODE h$-13 OR h$="Ü" OR 

hg="c" THEN GO TO a 

3830 IF hg="Z" OR h$z"z" THEN CO 

PY Go TO a 

3840 RETURN : 

goen - m Q$=INKEY$: IF q$z"" THE 

N 

4818 IF CODE q$z13 OR qs="Y" OF 

q$z"g" THEN PAUSE keh: RETURN 

4015 IF qg="n" OR q$="N" THEN FR 


INT “Uhat is correct data? ": 


PUT G$ 
4828 RETURN 

agaa LET ps suse (URL "S"+PEER 
L "253835"4URL “256"4PEEK VAL 


635") 
oia IF ps-UHL "32347" THEN PRIN 
"17"; PAPER H; IH 
"i: RETU 


IN 


UR 
"23 


T RT K+K+.I , VAL 
K VAL "6"; . "OFF 


RN 

8@iS IF ps=VAL "3256053" 

T RT VAL "zi",UHL "17^"; 
INK im "&"; “UNPLUGGED 

RETUR LI ae eee 
Beer PRINT AT VAL "21",URL "17"; 
PAPER S TO UAL "6"; “ON 


SAVE s"datalist" 
LINE 9810 


LET j=PIvPI: LET h=j+j: LET 
LET k=URL "10": LET m=VA 
; LET ws RUAL "3" 

S015 LET Ut-"N 


f APER 8: N 

rye ELS + LET g="YOU WILL NOT 
BE ABLE TO RUN THISPROGRAM UNTIL 
THE HARDWARE URITEPROTECTION IS 
REMOVED FROM DISK!" 

9345 FOR i=1 TO LEN q$: PRINT q5 
(i)!;: BEEP .81,28: NEXT i 

sese PAUSE kzk.;h: GO TO U 


THEN PRIN 
PAPER H; 


: DIM x$iktk-J) 
BORDER 98: K 5 


Manus £ Screen Dumps x 


READ DATA 
SELECT DATA 
LIST DATA 


CLOSE FILE 
WRITE BATA 
STOP 


EDIT DATA 
NAHE SEARCH 


ON TUF WR 


PRINTER Is ON 
No.File= File Open=1248 


READ DATA 
SELECT BATA 
LIST DATR 


CLOSE FILE 
WRITE BATA 
STOP 


EDIT D 
NAME SEARCH 


On OU Wher 


PRINTER IS ON 
No .Fi Le =20 ! 


BLUG Inc. 

The ERTL Company 
Pines OF America, 
Power Wheels 
Playmate 
Atexander Doll Company, 
Famus Corporation 
Gutman Cutlery, Inc. 
Sam Weisman Sates Org. Inc. 
| Pastime Industries,Ltd. 
Siku of America,Inc. 
Yuletide Concepts,Inc. 
Avaton Industries,Inc. 


Inc. 


Inc. 


WON TMP ONE 


Cardinal Industries Inc. 
Gund Inc. 

Mitlter-Sperber Inc. 
Ritvic Toy Corp. 

Empire Of Carolina. 

Heil Posin Asoc.,iInc. 
Mighty Star Inc. 


(Z) COPY  (Q)UIT (C)ONT 


LIST CATA 


Fite Open=1248 


(M) ENU 


LIST 


p.14 


s 


Att: President 
Pines Of America, 
288 Firth Avenve 
New York,N.Y. 
18818 

N6758119 


Inc. 


4&4- 

Att: President 
Power Wheels 

200 Fifth Avenue 
New York,N.Y. 


18818 

N6758119 

s 

Rtt: President 
Plaumate 


280 Firth Avenue 
New York,N.yY. 


READ CATA 


Data Number To Edit? & 

DRtt: President Playmate 
2098 Fift 

venue New YOFk,N.Y,. 

10 NS315352 

1 Code 5 City,State 

2 Pres.Name 6 Zip. 

3 Co. Hame 7 Phone 

4 Address 8 Abort 

EDIT CATA 


SELECT ONE OR MORE CATEGORIES 


CRAFTS 

TOYS 

GAMES 

DOLLS 
HOUSEWARES 

ALL CATEGORIES 


> xY O O +O 


SELECT DATA 


ww 


